﻿Imports Microsoft.VisualBasic
Imports System.Configuration.ConfigurationManager
Imports System.Data
Imports System.Data.SqlClient
Imports System

Public Class MantenimientoEquipo

    'instanciar la conexion
    Dim cn As New SqlConnection(ConnectionStrings("cn").ConnectionString)

    Public Function ListadoParametro(ByVal nom As String) As DataTable
        Dim da As New SqlDataAdapter(nom, cn)
        Dim tb As New DataTable
        da.Fill(tb)
        Return tb
    End Function

    Public Function generaCodigo(ByVal nom As String) As String
        Dim da As New SqlDataAdapter(nom, cn)
        Dim tb As New DataTable
        da.Fill(tb)

        Dim corr As String = tb.Rows(0).Item("corr").ToString()

        Return corr

    End Function

    Public Sub EliminarEquipo(ByVal cod As String)

       cn.Open()
        Try
            'comando de insercion
            Dim cmd As New SqlCommand("update dbo.tb_equipo " & _
                               " set Estado = 'C' " & _
                               " where cod_equipo =  @cod", cn)

            'lista de parametros
            With cmd.Parameters
                .Add("@cod", SqlDbType.VarChar).Value = cod
            End With

            cmd.ExecuteNonQuery() 'ejecutar
            MsgBox("Equipo eliminado")
        Catch ex As Exception
            MsgBox(ex.Message) 'mensaje en caso error
            MsgBox("Equipo no se pudo eliminar")
        Finally
            cn.Close() 'al finalizar cerrar la conexion
        End Try


    End Sub
    Public Sub ActualizarEquipo(ByVal cod As String, ByVal cod_marca As String, ByVal desc As String, ByVal precio As Double)

        cn.Open()
        Try
            'comando de insercion
            Dim cmd As New SqlCommand(" update dbo.tb_equipo " & _
                                      " set Estado = 'A', " & _
                                      " cod_marca =  @cod_marca, " & _
                                      " equip_desc = @desc, " & _
                                      " precio = @pre " & _
                                      " where cod_equipo = @cod ", cn)

            'lista de parametros
            With cmd.Parameters
                .Add("@cod", SqlDbType.VarChar).Value = cod
                .Add("@cod_marca", SqlDbType.VarChar).Value = cod_marca
                .Add("@desc", SqlDbType.VarChar).Value = desc
                .Add("@pre", SqlDbType.Decimal).Value = precio
            End With

            cmd.ExecuteNonQuery() 'ejecutar
            MsgBox("Equipo Actualizado")
        Catch ex As Exception
            MsgBox(ex.Message) 'mensaje en caso error
            MsgBox("Equipo no se pudo Actualizado")
        Finally
            cn.Close() 'al finalizar cerrar la conexion
        End Try


    End Sub
    Public Sub InsertarEquipo(ByVal cod_marca As String, ByVal desc As String, ByVal precio As Double, ByVal est As String)

        cn.Open()
        Try
            'comando de insercion
            Dim cmd As New SqlCommand(" insert into dbo.tb_equipo(cod_marca,Equip_desc,precio,Estado) " & _
                                       " values(@cod_marca,@desc,@pre,@est) ", cn)

            'lista de parametros
            With cmd.Parameters
                .Add("@cod_marca", SqlDbType.VarChar).Value = cod_marca
                .Add("@desc", SqlDbType.VarChar).Value = desc
                .Add("@pre", SqlDbType.Decimal).Value = precio
                .Add("@est", SqlDbType.VarChar).Value = est
            End With


            cmd.ExecuteNonQuery() 'ejecutar
            MsgBox("Equipo Insertado")
        Catch ex As Exception
            MsgBox(ex.Message) 'mensaje en caso error
            MsgBox("Equipo no se pudo Insertado")
        Finally
            cn.Close() 'al finalizar cerrar la conexion
        End Try


    End Sub

    Public Sub insertarModelo(ByVal cod As String, ByVal desc As String, ByVal est As String)

        cn.Open()
        Try
            'comando de insercion
            Dim cmd As New SqlCommand(" insert into dbo.tb_marca(cod_marca,Name_marca,estado) " & _
                                       " values(@cod,@des,@estado) ", cn)

            'lista de parametros
            With cmd.Parameters
                .Add("@cod", SqlDbType.VarChar).Value = cod
                .Add("@des", SqlDbType.VarChar).Value = desc
                .Add("@estado", SqlDbType.VarChar).Value = est
            End With


            cmd.ExecuteNonQuery() 'ejecutar
            MsgBox("Modelo Insertado")
        Catch ex As Exception
            MsgBox(ex.Message) 'mensaje en caso error
            MsgBox("Modelo no se pudo Insertado")
        Finally
            cn.Close() 'al finalizar cerrar la conexion
        End Try


    End Sub

    Public Sub ActualizarModelo(ByVal cod As String, ByVal desc As String)

        cn.Open()
        Try
            'comando de insercion
            Dim cmd As New SqlCommand(" update dbo.tb_marca " & _
                                       " set Name_marca = @desc " & _
                                        "where cod_marca=@cod", cn)

            'lista de parametros
            With cmd.Parameters
                .Add("@cod", SqlDbType.VarChar).Value = cod
                .Add("@desc", SqlDbType.VarChar).Value = desc
            End With

            cmd.ExecuteNonQuery() 'ejecutar
            MsgBox("Modelo Actualizado")
        Catch ex As Exception
            MsgBox(ex.Message) 'mensaje en caso error
            MsgBox("Modelo no se pudo Actualizado")
        Finally
            cn.Close() 'al finalizar cerrar la conexion
        End Try


    End Sub

    Public Sub EliminarModelo(ByVal cod As String)

        cn.Open()
        Try
            'comando de insercion
            Dim cmd As New SqlCommand("update dbo.tb_marca " & _
                               " set Estado = 'C' " & _
                               " where cod_marca =  @cod", cn)

            'lista de parametros
            With cmd.Parameters
                .Add("@cod", SqlDbType.VarChar).Value = cod
            End With

            cmd.ExecuteNonQuery() 'ejecutar
            MsgBox("Modelo eliminado")
        Catch ex As Exception
            MsgBox(ex.Message) 'mensaje en caso error
            MsgBox("Modelo no se pudo eliminar")
        Finally
            cn.Close() 'al finalizar cerrar la conexion
        End Try


    End Sub

End Class
